home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / e / capus2.lha / capus2 / WhatView / Sources / WhatView_Cat.e < prev    next >
Encoding:
Text File  |  1995-04-03  |  14.2 KB  |  229 lines
  1. /****************************************************************
  2.    This file was created automatically by `FlexCat V1.1'
  3.    Do not edit by hand!
  4. ****************************************************************/
  5. /*"DEF"*/
  6.     /* External modules */
  7. MODULE 'locale', 'libraries/locale'
  8. MODULE 'utility/tagitem'
  9.     /* Object definitions */
  10. OBJECT fc_type
  11.     id  :LONG
  12.     str :LONG
  13. ENDOBJECT
  14.     /* Global variables */
  15. DEF catalog_WhatView:PTR TO catalog
  16. DEF array_WhatView[78]:ARRAY OF fc_type
  17.     /* Constant definitions */
  18. CONST MSG_GAD_WHATVIEW = 0
  19. CONST MSG_GAD_INFO = 1
  20. CONST MSG_GAD_ADDICON = 2
  21. CONST MSG_GAD_EXECUTE = 3
  22. CONST MSGWHATVIEW_COMASS = 4
  23. CONST MSGWHATVIEW_COMASS_GAD = 5
  24. CONST MSGWHATVIEW_NOCOM = 6
  25. CONST MSGWHATVIEW_NOCOM_GAD = 7
  26. CONST MSGWHATVIEW_EXECCOM = 8
  27. CONST MSGWHATVIEW_EXECCOM_GAD = 9
  28. CONST MSGWHATVIEW_FLUSHLIB_BAD = 10
  29. CONST MSGWHATVIEW_FLUSHLIB_GOOD = 11
  30. CONST MSGWHATVIEW_ADDICON = 12
  31. CONST MSGWHATVIEW_WBRUN_FAILED = 13
  32. CONST MSGERWHATVIEW_INFOWINDOW = 14
  33. CONST MSGERWHATVIEW_ER_LOCKSCREEN = 15
  34. CONST MSGERWHATVIEW_ER_VISUAL = 16
  35. CONST MSGERWHATVIEW_ER_CONTEXT = 17
  36. CONST MSGERWHATVIEW_ER_MENUS = 18
  37. CONST MSGERWHATVIEW_ER_GADGET = 19
  38. CONST MSGERWHATVIEW_ER_WINDOW = 20
  39. CONST MSGERWHATVIEW_ER_NOICON = 21
  40. CONST MSGERWHATVIEW_ER_BADARGS = 22
  41. CONST MSGERWHATVIEW_ER_NOPREFS = 23
  42. CONST MSGERWHATVIEW_ER_APPWIN = 24
  43. CONST MSGERWHATVIEW_ER_APPITEM = 25
  44. CONST MSGERWHATVIEW_ER_PORT = 26
  45. CONST MSGERWHATVIEW_ER_PORTEXIST = 27
  46. CONST MSGERWHATVIEW_ER_SIG = 28
  47. CONST MSGERWHATVIEW_ER_CX = 29
  48. CONST MSGERWHATVIEW_ER_INTUITIONLIB = 30
  49. CONST MSGERWHATVIEW_ER_GADTOOLSLIB = 31
  50. CONST MSGERWHATVIEW_ER_GRAPHICSLIB = 32
  51. CONST MSGERWHATVIEW_ER_WHATISLIB = 33
  52. CONST MSGERWHATVIEW_ER_REQTOOLSLIB = 34
  53. CONST MSGERWHATVIEW_ER_EXECLIB = 35
  54. CONST MSGERWHATVIEW_ER_WORKBENCHLIB = 36
  55. CONST MSGERWHATVIEW_ER_UTILITYLIB = 37
  56. CONST MSGERWHATVIEW_ER_DOSLIB = 38
  57. CONST MSGERWHATVIEW_ER_ICONLIB = 39
  58. CONST MSGERWHATVIEW_ER_REXXSYSLIBLIB = 40
  59. CONST MSGERWHATVIEW_ER_COMMODITIESLIB = 41
  60. CONST MSGWVPREFS_MENU_DEFACT = 42
  61. CONST MSGWVPREFS_MENU_OPENWIN = 43
  62. CONST MSGWVPREFS_MENU_WHATVIEW = 44
  63. CONST MSGWVPREFS_MENU_INFO = 45
  64. CONST MSGWVPREFS_MENU_ADDICON = 46
  65. CONST MSGWVPREFS_MENU_EXECUTE = 47
  66. CONST MSGWVPREFS_MENU_QUIT = 48
  67. CONST MSGWVPREFS_MENU_UTILS = 49
  68. CONST MSGWVPREFS_MENU_EDITICON = 50
  69. CONST MSGWVPREFS_GAD_COMMANDE = 51
  70. CONST MSGWVPREFS_GAD_EXECTYPE = 52
  71. CONST MSGWVPREFS_GAD_STACK = 53
  72. CONST MSGWVPREFS_GAD_PRI = 54
  73. CONST MSGWVPREFS_GAD_LOAD = 55
  74. CONST MSGWVPREFS_GAD_SAVE = 56
  75. CONST MSGWVPREFS_GAD_SAVEAS = 57
  76. CONST MSGWVPREFS_GAD_ADD = 58
  77. CONST MSGWVPREFS_GAD_REM = 59
  78. CONST MSGWVPREFS_GAD_ID = 60
  79. CONST MSGWVPREFS_GAD_ACTION = 61
  80. CONST MSGWVPREFS_GAD_PARENTTYPE = 62
  81. CONST MSGWVPREFS_GAD_USEPT = 63
  82. CONST MSGWVPREFS_REQ_EXECNOICON = 64
  83. CONST MSGWVPREFS_REQ_NOICON = 65
  84. CONST MSGWVPREFS_REQ_NODEFICON = 66
  85. CONST MSGWVPREFS_REQ_TYPEEXIST = 67
  86. CONST MSGWHATISPREFS_LOAD = 68
  87. CONST MSGWHATISPREFS_SAVE = 69
  88. CONST MSGWHATISPREFS_SAVEAS = 70
  89. CONST MSGWHATISPREFS_QUIT = 71
  90. CONST MSGWHATISPREFS_NEWNODE = 72
  91. CONST MSGWHATISPREFS_REQ_HAILLOAD = 73
  92. CONST MSGWHATISPREFS_REQ_HAILSAVE = 74
  93. CONST MSGWHATISPREFS_REQ_CANCEL = 75
  94. CONST MSGWHATIS_ER_NOPORT = 76
  95. CONST MSGWHATIS_ER_ARG = 77
  96. /**/
  97. /*"open_WhatView_catalog(loc:PTR TO locale:language:PTR TO CHAR)"*/
  98. PROC open_WhatView_catalog(loc:PTR TO locale, language:PTR TO CHAR)
  99.     DEF tag, tagarg, dummy_var = 0
  100.  
  101.     array_WhatView[dummy_var].id := MSG_GAD_WHATVIEW; array_WhatView[dummy_var++].str := '_WhatView'
  102.     array_WhatView[dummy_var].id := MSG_GAD_INFO; array_WhatView[dummy_var++].str := 'In_fo'
  103.     array_WhatView[dummy_var].id := MSG_GAD_ADDICON; array_WhatView[dummy_var++].str := 'A_ddIcon'
  104.     array_WhatView[dummy_var].id := MSG_GAD_EXECUTE; array_WhatView[dummy_var++].str := '_Execute'
  105.     array_WhatView[dummy_var].id := MSGWHATVIEW_COMASS; array_WhatView[dummy_var++].str := 'La commande associée a \s est renvoyée au subtype \s\n' +
  106.     'qui n''est pas dans la liste.'
  107.     array_WhatView[dummy_var].id := MSGWHATVIEW_COMASS_GAD; array_WhatView[dummy_var++].str := 'Merci'
  108.     array_WhatView[dummy_var].id := MSGWHATVIEW_NOCOM; array_WhatView[dummy_var++].str := 'Pas de commande pour:\n' +
  109.     'Fichier :\s\n' +
  110.     'Type    :\s\n' +
  111.     'Taille  :\d\n' +
  112.     'Date    :\s'
  113.     array_WhatView[dummy_var].id := MSGWHATVIEW_NOCOM_GAD; array_WhatView[dummy_var++].str := '_Suivant|S_ortie'
  114.     array_WhatView[dummy_var].id := MSGWHATVIEW_EXECCOM; array_WhatView[dummy_var++].str := 'Execution d''une commande pour:\n' +
  115.     'Fichier :\s\n' +
  116.     'Type    :\s\n' +
  117.     'Taille  :\d\n'
  118.     array_WhatView[dummy_var].id := MSGWHATVIEW_EXECCOM_GAD; array_WhatView[dummy_var++].str := '_Execute|_Annuler'
  119.     array_WhatView[dummy_var].id := MSGWHATVIEW_FLUSHLIB_BAD; array_WhatView[dummy_var++].str := 'Flush impossible \d programme(s)\n' +
  120.     'utilise(nt) la whatis.linbrary.'
  121.     array_WhatView[dummy_var].id := MSGWHATVIEW_FLUSHLIB_GOOD; array_WhatView[dummy_var++].str := 'Flush de la Whatis.library'
  122.     array_WhatView[dummy_var].id := MSGWHATVIEW_ADDICON; array_WhatView[dummy_var++].str := 'Pas d''icônes par défaut pour:\n' +
  123.     'Fichier :\s\n' +
  124.     'Type    :\s\n' +
  125.     'Taille  :\d'
  126.     array_WhatView[dummy_var].id := MSGWHATVIEW_WBRUN_FAILED; array_WhatView[dummy_var++].str := 'Erreur lors du lancement WB.'
  127.     array_WhatView[dummy_var].id := MSGERWHATVIEW_INFOWINDOW; array_WhatView[dummy_var++].str := 'Impossible d''ouvrir la fenêtre d''informations.'
  128.     array_WhatView[dummy_var].id := MSGERWHATVIEW_ER_LOCKSCREEN; array_WhatView[dummy_var++].str := 'Erreur : Ecran.\n'
  129.     array_WhatView[dummy_var].id := MSGERWHATVIEW_ER_VISUAL; array_WhatView[dummy_var++].str := 'Erreur : Visual.\n'
  130.     array_WhatView[dummy_var].id := MSGERWHATVIEW_ER_CONTEXT; array_WhatView[dummy_var++].str := 'Erreur : Context.\n'
  131.     array_WhatView[dummy_var].id := MSGERWHATVIEW_ER_MENUS; array_WhatView[dummy_var++].str := 'Erreur : Menus.\n'
  132.     array_WhatView[dummy_var].id := MSGERWHATVIEW_ER_GADGET; array_WhatView[dummy_var++].str := 'Erreur : Gadget.\n'
  133.     array_WhatView[dummy_var].id := MSGERWHATVIEW_ER_WINDOW; array_WhatView[dummy_var++].str := 'Erreur : Fenêtre.\n'
  134.     array_WhatView[dummy_var].id := MSGERWHATVIEW_ER_NOICON; array_WhatView[dummy_var++].str := 'Erreur : Pas d''icône.\n'
  135.     array_WhatView[dummy_var].id := MSGERWHATVIEW_ER_BADARGS; array_WhatView[dummy_var++].str := 'Erreur : Mauvais arguments.\n'
  136.     array_WhatView[dummy_var].id := MSGERWHATVIEW_ER_NOPREFS; array_WhatView[dummy_var++].str := 'Erreur : Pas de fichier Env:WhatView.Prefs.\n'
  137.     array_WhatView[dummy_var].id := MSGERWHATVIEW_ER_APPWIN; array_WhatView[dummy_var++].str := 'Erreur : Création de la fenêtre d''application.\n'
  138.     array_WhatView[dummy_var].id := MSGERWHATVIEW_ER_APPITEM; array_WhatView[dummy_var++].str := 'Erreur : Création de l''entrée menu du Workbench.\n'
  139.     array_WhatView[dummy_var].id := MSGERWHATVIEW_ER_PORT; array_WhatView[dummy_var++].str := 'Erreur : Création du port de messages.\n'
  140.     array_WhatView[dummy_var].id := MSGERWHATVIEW_ER_PORTEXIST; array_WhatView[dummy_var++].str := 'Erreur : WhatViewPort existe déjà.\n'
  141.     array_WhatView[dummy_var].id := MSGERWHATVIEW_ER_SIG; array_WhatView[dummy_var++].str := 'Erreur : Allocation du signal impossible.\n'
  142.     array_WhatView[dummy_var].id := MSGERWHATVIEW_ER_CX; array_WhatView[dummy_var++].str := 'Erreur : Création de la commoditée.\n'
  143.     array_WhatView[dummy_var].id := MSGERWHATVIEW_ER_INTUITIONLIB; array_WhatView[dummy_var++].str := 'Erreur : Ouverture de l''intuition.library v37 impossible.\n'
  144.     array_WhatView[dummy_var].id := MSGERWHATVIEW_ER_GADTOOLSLIB; array_WhatView[dummy_var++].str := 'Erreur : Ouverture de la gadtools.library v37 impossible.\n'
  145.     array_WhatView[dummy_var].id := MSGERWHATVIEW_ER_GRAPHICSLIB; array_WhatView[dummy_var++].str := 'Erreur : Ouverture de la graphics.library v37 impossible.\n'
  146.     array_WhatView[dummy_var].id := MSGERWHATVIEW_ER_WHATISLIB; array_WhatView[dummy_var++].str := 'Erreur : Ouverture de la whatis.library v4 impossible.\n'
  147.     array_WhatView[dummy_var].id := MSGERWHATVIEW_ER_REQTOOLSLIB; array_WhatView[dummy_var++].str := 'Erreur : Ouverture de la reqtools.library v37 impossible.\n'
  148.     array_WhatView[dummy_var].id := MSGERWHATVIEW_ER_EXECLIB; array_WhatView[dummy_var++].str := 'Erreur : Ouverture de l''exec.library v37 impossible.\n'
  149.     array_WhatView[dummy_var].id := MSGERWHATVIEW_ER_WORKBENCHLIB; array_WhatView[dummy_var++].str := 'Erreur : Ouverture de la workbench.librayr v37 impossible.\n'
  150.     array_WhatView[dummy_var].id := MSGERWHATVIEW_ER_UTILITYLIB; array_WhatView[dummy_var++].str := 'Erreur : Ouverture de l''utility.library v37 impossible.\n'
  151.     array_WhatView[dummy_var].id := MSGERWHATVIEW_ER_DOSLIB; array_WhatView[dummy_var++].str := 'Erreur : Ouverture de la dos.library v37 impossible.\n'
  152.     array_WhatView[dummy_var].id := MSGERWHATVIEW_ER_ICONLIB; array_WhatView[dummy_var++].str := 'Erreur : Ouverture de l''icon.library v37 impossible.\n'
  153.     array_WhatView[dummy_var].id := MSGERWHATVIEW_ER_REXXSYSLIBLIB; array_WhatView[dummy_var++].str := 'Erreur : Ouverture de la rexxsyslib.library v36 impossible.\n'
  154.     array_WhatView[dummy_var].id := MSGERWHATVIEW_ER_COMMODITIESLIB; array_WhatView[dummy_var++].str := 'Erreur : Ouverture de la commodities.library v37 impossible.\n'
  155.     array_WhatView[dummy_var].id := MSGWVPREFS_MENU_DEFACT; array_WhatView[dummy_var++].str := 'Action par défaut'
  156.     array_WhatView[dummy_var].id := MSGWVPREFS_MENU_OPENWIN; array_WhatView[dummy_var++].str := 'Ouvre la fenêtre'
  157.     array_WhatView[dummy_var].id := MSGWVPREFS_MENU_WHATVIEW; array_WhatView[dummy_var++].str := 'WhatView'
  158.     array_WhatView[dummy_var].id := MSGWVPREFS_MENU_INFO; array_WhatView[dummy_var++].str := 'Info'
  159.     array_WhatView[dummy_var].id := MSGWVPREFS_MENU_ADDICON; array_WhatView[dummy_var++].str := 'AddIcon'
  160.     array_WhatView[dummy_var].id := MSGWVPREFS_MENU_EXECUTE; array_WhatView[dummy_var++].str := 'Execute'
  161.     array_WhatView[dummy_var].id := MSGWVPREFS_MENU_QUIT; array_WhatView[dummy_var++].str := 'Quitter'
  162.     array_WhatView[dummy_var].id := MSGWVPREFS_MENU_UTILS; array_WhatView[dummy_var++].str := 'Utilitaires'
  163.     array_WhatView[dummy_var].id := MSGWVPREFS_MENU_EDITICON; array_WhatView[dummy_var++].str := 'Editer Icone'
  164.     array_WhatView[dummy_var].id := MSGWVPREFS_GAD_COMMANDE; array_WhatView[dummy_var++].str := 'Commande'
  165.     array_WhatView[dummy_var].id := MSGWVPREFS_GAD_EXECTYPE; array_WhatView[dummy_var++].str := 'ExecType'
  166.     array_WhatView[dummy_var].id := MSGWVPREFS_GAD_STACK; array_WhatView[dummy_var++].str := 'Pile'
  167.     array_WhatView[dummy_var].id := MSGWVPREFS_GAD_PRI; array_WhatView[dummy_var++].str := 'Priorité'
  168.     array_WhatView[dummy_var].id := MSGWVPREFS_GAD_LOAD; array_WhatView[dummy_var++].str := 'Charger'
  169.     array_WhatView[dummy_var].id := MSGWVPREFS_GAD_SAVE; array_WhatView[dummy_var++].str := 'Sauver'
  170.     array_WhatView[dummy_var].id := MSGWVPREFS_GAD_SAVEAS; array_WhatView[dummy_var++].str := 'Sauver S.'
  171.     array_WhatView[dummy_var].id := MSGWVPREFS_GAD_ADD; array_WhatView[dummy_var++].str := 'Add'
  172.     array_WhatView[dummy_var].id := MSGWVPREFS_GAD_REM; array_WhatView[dummy_var++].str := 'Rem'
  173.     array_WhatView[dummy_var].id := MSGWVPREFS_GAD_ID; array_WhatView[dummy_var++].str := 'ID'
  174.     array_WhatView[dummy_var].id := MSGWVPREFS_GAD_ACTION; array_WhatView[dummy_var++].str := 'Action'
  175.     array_WhatView[dummy_var].id := MSGWVPREFS_GAD_PARENTTYPE; array_WhatView[dummy_var++].str := 'Parent Type'
  176.     array_WhatView[dummy_var].id := MSGWVPREFS_GAD_USEPT; array_WhatView[dummy_var++].str := 'Utilise Parent Type'
  177.     array_WhatView[dummy_var].id := MSGWVPREFS_REQ_EXECNOICON; array_WhatView[dummy_var++].str := 'Attention !! la commande "\s" n''a pas d''icône\n' +
  178.     '(peut-être une commande cli..).'
  179.     array_WhatView[dummy_var].id := MSGWVPREFS_REQ_NOICON; array_WhatView[dummy_var++].str := 'Icône inexistante.'
  180.     array_WhatView[dummy_var].id := MSGWVPREFS_REQ_NODEFICON; array_WhatView[dummy_var++].str := 'Pas d''icône par défaut.'
  181.     array_WhatView[dummy_var].id := MSGWVPREFS_REQ_TYPEEXIST; array_WhatView[dummy_var++].str := 'Le type "\s" existe déjà.'
  182.     array_WhatView[dummy_var].id := MSGWHATISPREFS_LOAD; array_WhatView[dummy_var++].str := 'Charger'
  183.     array_WhatView[dummy_var].id := MSGWHATISPREFS_SAVE; array_WhatView[dummy_var++].str := 'Sauver'
  184.     array_WhatView[dummy_var].id := MSGWHATISPREFS_SAVEAS; array_WhatView[dummy_var++].str := 'SauverS.'
  185.     array_WhatView[dummy_var].id := MSGWHATISPREFS_QUIT; array_WhatView[dummy_var++].str := 'Quitter'
  186.     array_WhatView[dummy_var].id := MSGWHATISPREFS_NEWNODE; array_WhatView[dummy_var++].str := '(Nouveau)'
  187.     array_WhatView[dummy_var].id := MSGWHATISPREFS_REQ_HAILLOAD; array_WhatView[dummy_var++].str := 'WhatIsPrefs Charger'
  188.     array_WhatView[dummy_var].id := MSGWHATISPREFS_REQ_HAILSAVE; array_WhatView[dummy_var++].str := 'WhatIsPrefs Sauver'
  189.     array_WhatView[dummy_var].id := MSGWHATISPREFS_REQ_CANCEL; array_WhatView[dummy_var++].str := 'Annuler'
  190.     array_WhatView[dummy_var].id := MSGWHATIS_ER_NOPORT; array_WhatView[dummy_var++].str := 'Port WhatViewPort inexistant.\n'
  191.     array_WhatView[dummy_var].id := MSGWHATIS_ER_ARG; array_WhatView[dummy_var++].str := '1 argument manquant (Dossier ou fichier ou filtre).\n'
  192.  
  193.     IF (localebase AND (catalog_WhatView = NIL))
  194.         IF language
  195.             tag := OC_LANGUAGE
  196.             tagarg := language
  197.         ELSE
  198.             tag:= TAG_IGNORE
  199.         ENDIF
  200.  
  201.         catalog_WhatView := OpenCatalogA(loc, 'WhatView.catalog',
  202.                                     [   OC_BUILTINLANGUAGE, 'français',
  203.                                         tag, tagarg,
  204.                                         OC_VERSION, 0,
  205.                                         TAG_DONE    ])
  206.     ENDIF
  207. ENDPROC
  208. /**/
  209. /*"close_WhatView_catalog()"*/
  210. PROC close_WhatView_catalog()
  211.  
  212.     IF localebase THEN CloseCatalog(catalog_WhatView)
  213.     catalog_WhatView := NIL
  214. ENDPROC
  215. /**/
  216. /*"get_WhatView_string(strnum)"*/
  217. PROC get_WhatView_string(strnum)
  218.     DEF defaultstr:PTR TO CHAR, i = 0
  219.  
  220.     WHILE ((i < 78) AND (array_WhatView[i].id <> strnum)) DO INC i
  221.     defaultstr := IF (i < 78) THEN array_WhatView[i].str ELSE NIL
  222.  
  223. ENDPROC IF catalog_WhatView THEN GetCatalogStr(catalog_WhatView, strnum, defaultstr) ELSE defaultstr
  224. /**/
  225. /****************************************************************
  226.    End of the automatically created part!
  227. ****************************************************************/
  228.  
  229.